home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db3.arc / INVMENU.PRG < prev    next >
Text File  |  1984-10-25  |  2KB  |  67 lines
  1.         ************** Invmenu COMMAND FILE  ****************** 
  2. * This menu leads into command files that work with two data
  3. * files, Billings and Invoices.  Billings keeps track of the amount
  4. * billed to a client by individual job number, while Invoices is a
  5. * summary of the total billed on any given invoice.  This latter file can
  6. * be used to set up an accounts receivable system, as it has fields for
  7. * storing how much has been received in payment against an invoice and
  8. * when that amount was received (filled in by the Deposits.prg file).
  9. *************************************************************************
  10. SELECT 1
  11. USE Invget
  12. SELECT 7
  13. USE Claddres 
  14. SELECT 8
  15. USE Invoices INDEX Invoices
  16. SELECT 9
  17. USE Billings INDEX Billings, Billjobs
  18. *
  19. DO WHILE .T.
  20.    CLEAR
  21.    @  2, 0 SAY '* * * * * * *   C L I E N T   B I L L I N G   * * * * * * *'
  22.    @  4,20 SAY '1> Bill Clients by Job'
  23.    @  6,20 SAY '2> Edit/Print Invoices in Entry File'
  24.    @  8,20 SAY '3> Print Invoice Forms'
  25.    @ 10, 0 SAY '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *'
  26.    @ 12,20 SAY 'Choose a number or press <ENTER>'
  27.    @ 13, 0
  28.    *
  29.    WAIT ' ' TO Invoicing
  30.    *
  31.    DO CASE
  32.       CASE Invoicing = '1'
  33.          @ ROW(),0 SAY 'Preparing to Bill Clients by Job'
  34.          DO Invoices
  35.       CASE Invoicing = '2'
  36.          @ ROW(),0 SAY 'Preparing Invoices in Entry File'
  37.          DO Invedit
  38.       CASE Invoicing = '3'
  39.          @ ROW(),0 SAY 'Preparing to Print Invoice Forms'
  40.          SELECT 1
  41.          GO TOP
  42.          CLEAR
  43.          IF EOF()
  44.             WAIT ;
  45.             'There are no INVOICES to be printed.  Type any key to continue'
  46.          ELSE
  47.             * Invoices are all checked to see that only jobs for one client
  48.             * are entered against an invoice.  Necessary because they could
  49.             * have been changed by editing.
  50.             PUBLIC Aborted
  51.             Aborted = .F.
  52.             DO Invcheck
  53.             IF .NOT. Aborted
  54.                DO Invprint
  55.                DO Invupdat
  56.             ENDIF
  57.          ENDIF
  58.       CASE LEN(Invoicing) = 0
  59.          @ ROW(),0 SAY 'Returning to Main Menu'
  60.          CLOSE DATABASE
  61.          RETURN
  62.          *
  63.       OTHERWISE
  64.       *
  65.    ENDCASE Invoicing
  66. ENDDO
  67.